home *** CD-ROM | disk | FTP | other *** search
/ Qu.......ke Neue Level / KroGer Software GmbH - Qu_ke.iso / UTILITY / PRG8.ZIP / UNWAD.C < prev    next >
C/C++ Source or Header  |  1996-03-03  |  3KB  |  82 lines
  1. /*
  2.  * Unwad.c - Uses the routines in the QEU library to extract data
  3.  *           from a Doom/Heretic/Hexen WAD file.
  4.  *
  5.  * Do whatever you want with this file, but don't blame me if
  6.  * something doesn't work.  If you manage to destroy your hard disk
  7.  * with it, that's too bad for you...  Use it at your own risks!
  8.  */
  9.  
  10. #include "qeu.h"
  11. #include "q_misc.h"
  12. #include "q_files.h"
  13. #include "f_wad.h"
  14.  
  15. void main(int argc, char *argv[])
  16. {
  17.   char      *filename = NULL;
  18.   FILE      *file;
  19.   int        ftype;
  20.   WADDirPtr  dir;
  21.   UInt16     dirsize, n;
  22.   Bool       view = FALSE;
  23.   char      *dirname = NULL;
  24.  
  25.   /* read the parameters... */
  26.   for (argv++, argc--; argc && **argv == '-'; argv++, argc--)
  27.     if ((*argv)[1] == 'h')
  28.       {
  29.     fprintf(stderr, "UNWAD %s by Raphael Quinet\n\n", QEU_VERSION);
  30.     fprintf(stderr, "Usage: unwad [-h] [-v] [-c] [-d <directory>] file.wad [entryname...]\n");
  31.     fprintf(stderr, "       -h  -- display this help screen\n");
  32.     fprintf(stderr, "       -v  -- view the contents of the wad file without extracting any data\n");
  33.     fprintf(stderr, "       -d  -- use the specified directory for extraction\n");
  34.     fprintf(stderr, "By default, unwad will extract all entries from the wad file in a directory\n");
  35.     fprintf(stderr, "which has the same name as the wad file but the extension '.dir'.  If some\n");
  36.     fprintf(stderr, "names are given after the file name, only these entries will be extracted.\n");
  37.     exit(1);
  38.       }
  39.     else if ((*argv)[1] == 'v')
  40.       view = TRUE;
  41.     else if ((*argv)[1] == 'd' && argc-- > 1)
  42.       dirname = *++argv;
  43.     else
  44.       ProgError("Invalid argument (%s).  Use unwad -h for help.", *argv);
  45.   if (argc > 0)
  46.     filename = *argv;
  47.   else
  48.     ProgError("Missing argument.  Use unwad -h for help.");
  49.   if (dirname == NULL)
  50.     dirname = ChangeFileExtension(filename, NULL, "dir");
  51.  
  52.   /* open the WAD file... */
  53.   file = OpenFileReadMagic(filename, &ftype);
  54.   if (file == NULL)
  55.     ProgError("File not found (%s)", filename);
  56.   if (ftype != FTYPE_IWAD && ftype != FTYPE_PWAD)
  57.     ProgError("File is not a WAD file (%s)", filename);
  58.  
  59.   /* do something... */
  60.   dir = ReadWADDirectory(file, 0, &dirsize);
  61.   if (dir == NULL)
  62.     ProgError("Cannot read main directory from %s", filename);
  63.   if (view == TRUE)
  64.     DumpWADDirectory(stdout, dir, dirsize);
  65.   else if (argc > 1)
  66.     for (argv++, argc--; argc; argv++, argc--)
  67.       {
  68.     n = FindWADEntry(dir, dirsize, *argv);
  69.     if (n >= dirsize)
  70.       ProgError("Could not find entry %s in directory", *argv);
  71.     if (UnWADFile(stdout, file, 0, dir, dirsize, n, dirname) == FALSE)
  72.       ProgError("Could not unpack entry %s from %s", *argv, filename);
  73.       }
  74.   else
  75.     if (UnWADFile(stdout, file, 0, dir, dirsize, dirsize, dirname) == FALSE)
  76.       ProgError("Could not unpack all entries from %s", filename);
  77.  
  78.   /* close the file and say goodbye */
  79.   fclose(file);
  80.   exit(0);
  81. }
  82.